home *** CD-ROM | disk | FTP | other *** search
/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / biz / swood / FW_AllInOne.lha / Install_FW-Makros next >
Text File  |  1998-01-25  |  4KB  |  185 lines
  1. ;Copyright © 1998 Heiko Schröder
  2. ;$VER: InstallFW_Makros 3.0 (17.01.98)
  3. ;============
  4. ;Localization
  5. ;============
  6. (if (= @language "deutsch")
  7. (
  8.     (set ##bad-installer (cat
  9.         "Sie arbeiten mit einer alten Version vom 'Installer'!\n\n"
  10.         "Die Installation benötigt den Installer 42.9.\n\n"
  11.         "Bitte überprüfen Sie Ihre Konfiguration!"
  12.     ))
  13.     (set ##welcome (cat
  14.         "Das FinalWriter Makro Paket\nVersion 3\n\n"
  15.         "Hiermit bedanke ich mich für den Kauf des Paketes\n"
  16.         "und das mir entgegengebrachte Vertrauen.\n\n"
  17.         "Als zusätzlichen Bonus zur Registrierung erhalten\n"
  18.         "Sie das neueste Tips&Tricks.Guide zur effizienteren\n"
  19.         "Nutzung von Final Writer.\n\n"
  20.         "Dieses Paket ist © Heiko Schröder 1996-1998\n"
  21.         "Alle Rechte liegen beim Autor."
  22.     ))
  23.  
  24.     (set ##ende (cat
  25.         "\n\n\nDie Anleitungen zu den Makros erreichen Sie, wenn Sie\n"
  26.         "in Final Writer das Makro - Hilfe - aufrufen.\n\n"
  27.     ))
  28.  
  29.     (set ##bad-kick "\nSorry, aber es wird mindestens AmigaOS 2.04 benötigt.\n")
  30.  
  31.     (set ##inst-libs " Die Libraries in Libs:")
  32.     (set ##inst-macro " Die Makros.")
  33.     (set ##inst-docs " Die Online-Hilfen.")
  34.  
  35.     (set ##inst-docs-dest "Wo sollen die Online-Hilfen abgelegt werden?\n(Das Doks-Verzeichnis wird angelegt.)")
  36.  
  37.     (set @default-dest "Work:")
  38. ))
  39.  
  40. ;
  41. ; We can't handle this script without Installer 42.9 or better!
  42. ;
  43. (if (< @installer-version 2752521)
  44. (
  45.     (message ##bad-installer)
  46.     (exit (quiet))
  47. ))
  48.  
  49. ;=======
  50. ;WELCOME
  51. ;=======
  52. (complete 0)
  53. (message ##welcome (all))
  54. (welcome)
  55.  
  56. ;
  57. ;    Check kick version
  58. ;
  59. (if (= (set #flag (/ (getversion "libs:version.library") 65536)) 0)
  60.     (set #flag (/ (getversion) 65536))
  61. )
  62.  
  63. (if (< #flag 37) (abort ##bad-kick))
  64.  
  65.  
  66. ;
  67. ;    source and destination dir
  68. ;
  69. (set #srcdir (pathonly @icon))
  70.  
  71. (set laenge (Strlen #srcdir))
  72. (set laenge (- laenge 1))
  73. (set #a (substr #srcdir laenge))
  74.  
  75. (complete 10)
  76. (if (= #a ':')
  77.     (Set #srcdirtmp (Cat #srcdir "Libs/"))
  78.     (Set #srcdirtmp (Cat #srcdir "/Libs/"))
  79. )
  80.  
  81. (foreach #srcdirtmp "#?.library"
  82.     (copylib
  83.         (prompt (cat "Soll die '" @each-name "' installiert werden?"))
  84.         (help @copylib-help)
  85.         (source (tackon #srcdirtmp @each-name))
  86.         (dest "LIBS:")
  87.         (confirm)
  88.     )
  89. )
  90.  
  91. (complete 25)
  92. (if (= #a ':')
  93.     (Set #srcdirtmp (Cat #srcdir "c/"))
  94.     (Set #srcdirtmp (Cat #srcdir "/c/"))
  95. )
  96. (copyfiles
  97.     (prompt "Folgendes Programm muß nach C: kopiert werden.")
  98.     (help @copyfiles-help)
  99.     (source #srcdirtmp)
  100.     (dest "C:")
  101.     (confirm)
  102.     (all)
  103. )
  104.  
  105. (complete 30)
  106. (set macrodir
  107.     (askdir 
  108.          (prompt "Wo sollen die Makros und Online-Hilfen abgelegt werden?\nAm besten im Final Writer Verzeichnis unter FWMacros.\nDort wird ein Verzeichnis mit dem Namen Paket angelegt.")
  109.          (help @askdir-help)
  110.          (default @default-dest)
  111.     )
  112. )
  113. (set laenge (Strlen macrodir))
  114. (set laenge (- laenge 1))
  115. (set #b (substr macrodir laenge))
  116. (if (= #b ':')
  117.     (set macrodir (Cat macrodir "Paket/"))
  118.     (set macrodir (Cat macrodir "/Paket/"))
  119. )
  120. (set @default-dest macrodir)
  121.  
  122. (complete 40)
  123. (if (= #a ':')
  124.     (Set #srcdirtmp (Cat #srcdir "Makros/"))
  125.     (Set #srcdirtmp (Cat #srcdir "/Makros/"))
  126. )
  127. (makedir macrodir)
  128. (copyfiles
  129.     (prompt "Es werden nun die Makros und Online-Hilfen installiert.")
  130.     (help @copyfiles-help)
  131.     (source #srcdirtmp)
  132.     (dest macrodir)
  133.     (all)
  134. )
  135.  
  136. (set docdir (Cat macrodir "Doks/"))
  137. (complete 70)
  138. (Textfile
  139.     (prompt "Nun wird der Pfad der Online-Hilfen in die Datei\nS:FW_Paket.prefs\n geschrieben.")
  140.     (help "In diese Datei wird der Pfad der Guides, um die Online-Hilfe\nder Makros nutzen zu können.")
  141.     (dest "s:FW_Paket.prefs")
  142.     (append docdir)
  143.     (confirm)
  144. )
  145.  
  146. (complete 75)
  147. (set tipsdir
  148.     (askdir 
  149.          (prompt "Wohin soll das Tips und Tricks Guide kopiert werden?\nEs beinhaltet wichtige Informationen zum effizienten Umgang mit Final Writer.\nEin Verzeichnis wird angelegt.")
  150.          (help @askdir-help)
  151.          (default @default-dest)
  152.     )
  153. )
  154. (set laenge (Strlen tipsdir))
  155. (set laenge (- laenge 1))
  156. (set #b (substr tipsdir laenge))
  157. (if (= #b ':')
  158.     (set tipsdir (Cat tipsdir "Tips&Tricks/"))
  159.     (set tipsdir (Cat tipsdir "/Tips&Tricks/"))
  160. )
  161.  
  162. (complete 80)
  163. (if (= #a ':')
  164.     (Set #srcdirtmp (Cat #srcdir "Tips&Tricks/"))
  165.     (Set #srcdirtmp (Cat #srcdir "/Tips&Tricks/"))
  166. )
  167. (makedir tipsdir)
  168. (copyfiles
  169.     (prompt "Es wird nun das Tips und Tricks Guide kopiert.")
  170.     (help @copyfiles-help)
  171.     (source #srcdirtmp)
  172.     (dest tipsdir)
  173.     (all)
  174. )
  175.  
  176.  
  177. ;===========
  178. ;All done...
  179. ;===========
  180. (complete 99)
  181. (message ##ende (all))
  182.  
  183. (complete 100)
  184. (exit ("\n\nSie haben es geschafft.\nProbieren Sie die Makros doch gleich aus...\n\nIhr Heiko Schröder"))
  185.